home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / misc / gms_dev.lha / GMSDev / Source / C / Blitter / Circles.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-09-20  |  1.3 KB  |  52 lines
  1. /* Dice: 1> dcc -l0 -mD dpk.o tags.o Circles.c -o Circles
  2. **
  3. ** Draws different circles at random positions.
  4. */
  5.  
  6. #include <proto/dpkernel.h>
  7.  
  8. BYTE *ProgName      = "Circles";
  9. BYTE *ProgAuthor    = "Paul Manias";
  10. BYTE *ProgDate      = "July 1998";
  11. BYTE *ProgCopyright = "DreamWorld Productions (c) 1998.  Freely distributable.";
  12. BYTE *ProgShort     = "Draws different circles at random positions.";
  13.  
  14. LONG Palette[] = {
  15.   ID_PALETTE, 16,
  16.   0x000000,0xff0000,0x00ff00,0x0000ff,0xffff00,0xff00ff,0x00ffff,0x555555,
  17.   0xaaaaaa,0xffffff,0xff3456,0x6543ff,0xffaadd,0x29ff55,0x96f92a,0x89fa92
  18. };
  19.  
  20. void main(void)
  21. {
  22.   struct GScreen *Screen;
  23.   struct JoyData *JoyData;
  24.   WORD   sx,sy,radius;
  25.  
  26.   if (Screen = InitTags(NULL,
  27.       TAGS_SCREEN, NULL,
  28.         GSA_BitmapTags, NULL,
  29.         BMA_Palette,    Palette,
  30.         TAGEND,         NULL,
  31.       TAGEND)) {
  32.  
  33.      if (JoyData = Init(Get(ID_JOYDATA),NULL)) {
  34.  
  35.         Display(Screen);
  36.  
  37.         do {
  38.           Query(JoyData);
  39.           sx = FastRandom(Screen->Width+50)-25;
  40.           sy = FastRandom(Screen->Height+50)-25;
  41.           radius  = (FastRandom(Screen->Width/4))+1;
  42.           SetRGBPen(Screen->Bitmap,Palette[FastRandom(15)+3]);
  43.           PenCircle(Screen->Bitmap,sx,sy,radius,FastRandom(2));
  44.         } while (!(JoyData->Buttons & JD_LMB));
  45.  
  46.      Free(JoyData);
  47.      }
  48.   Free(Screen);
  49.   }
  50. }
  51.  
  52.